********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

program input_data_diri_wajib_pajak;
uses crt;
type
rec_pjk = record
     ttp : integer;
     npwp : string[8];
     nama : string[20];
     jk, stat_mar : char;
     profesi : string[20];
     pendbt : real;
     end;
var
     fpajak : file of rec_pjk;
     data_pjk : rec_pjk;
     ulang : boolean;
     yn : char;
     jumrec : longint;
begin
clrscr;
assign (fpajak,'pajak.dat');
{$i-}reset(fpajak); {$i+}
if ioresult<>0 then rewrite(fpajak);
jumrec:=filesize(fpajak);
seek (fpajak,jumrec);
ulang:=true;
while ulang do begin
gotoxy(25,3); write ('entry diri wajib pajak');
gotoxy(15,8); write ('(1). TH. Takwim Pajak:');
gotoxy(15,9); write ('(2). N P W P :');
gotoxy(15,10); write ('(3). Nama Wajib Pajak :');
gotoxy(15,11); write ('(4). Jenis Kelamin : <L/P> ');
gotoxy(15,12); write ('(5). Status Marital : <1..3>');
gotoxy(15,13); write ('(6). Profesi : ');
gotoxy(15,14); write ('(7). Pend.Bruto/th.kawin :Rp. ');
with data_pjk do
begin
gotoxy(44,8); readln(ttp);
gotoxy(44,9); readln(npwp);
gotoxy(44,10); readln(nama);
gotoxy(44,11); readln(jk);
gotoxy(44,12); readln(stat_mar);
gotoxy(44,13); readln(profesi);
gotoxy(44,14); readln(pendbt);
write (fpajak,data_pjk);
end;
gotoxy(23,18); write('Entry Data Lagi (y/n) ? : '); readln(yn);
if (yn='n') or (yn='N') then
ulang:=false;
end;
Close(fpajak);
end.